home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / demo 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  721b  |  38 lines
  1. 4 :\e,0:\h,0:\m,0:y=100:x1=69:x2=249:z=1
  2. 5 print"[147]"
  3. 6 print:print"mit den tasten 1-4 werden die demos"
  4. 7 print"eingeschaltet"
  5. 8 print:print"mit beliebigen tasten wieder             ausgeschaltet"
  6. 10 :\n
  7. 11 geta$:a=val(a$)
  8. 12 onagoto20,100,200,300
  9. 13 goto11
  10. 20 :\e,0:\h,0
  11. 25 for i=1 to 90 step1
  12. 30 :\k,x1+i,y,i,i,z
  13. 35 :\k,x2-i,y,i,i,z
  14. 40 next
  15. 60 geta$:ifa$<>""then10
  16. 70 z=1-z:goto25
  17. 100 :x=159:y=100:z=1:\e,0:\h,0
  18. 105 :x=159:y=100:z=1
  19. 110 fori=1to99 step2
  20. 120 :\k,x,y,i*1.61,i,z
  21. 130 next
  22. 140 geta$:ifa$<>""then10
  23. 160 z=1-z:goto110
  24. 200 :x=159:y=100:z=1:\e,0:\h,0
  25. 210 fori=1to90 step10
  26. 220 :\k,x,y,i,i,z
  27. 230 next
  28. 240 geta$:ifa$<>""then10
  29. 260 z=1-z:goto210
  30. 300 :\e,0:\h,0
  31. 305 foryy=34to160 step25
  32. 310 forxx=34to290 step25
  33. 320 for r=1to20 step2
  34. 330 :\k,xx,yy,r,r,1
  35. 340 next r,xx,yy
  36. 350 geta$:ifa$<>""then10
  37. 360 goto 350
  38.